home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_504_EachMenuItem < prev    next >
Encoding:
Text File  |  1990-03-23  |  2.5 KB  |  120 lines
  1. %case defineItem%
  2.     %if not reserved%
  3.         cmd%MenuItemName%%    %= %commandNr%; 
  4.     %endif%
  5. %case usesDialog%
  6.     %if not reserved%
  7.         %if dialogExists%
  8.             %if modal%
  9.                 %dlogname%,
  10.             %elsif modalOneShot%
  11.                 %dlogname%,
  12.             %endif%
  13.         %endif%
  14.     %endif%
  15. %case doItem.decl%
  16.     %if not reserved%
  17.         %if dialogExists%
  18.             %if modal%
  19.                 Procedure Do%MenuItemName%;
  20.             %elsif modalOneShot%
  21.                 Procedure Do%MenuItemName%;
  22.             %endif%
  23.         %endif%
  24.     %endif%
  25. %case doItem.decl.override%
  26.     %if not reserved%
  27.         %if dialogExists%
  28.             %if modal%
  29.                 Procedure Do%MenuItemName%; override;
  30.             %elsif modalOneShot%
  31.                 Procedure Do%MenuItemName%; override;
  32.             %endif%
  33.         %endif%
  34.     %endif%
  35. %case doItem%
  36.     %if not reserved%
  37.         %if dialogExists%
  38.             %if modal%
  39.                 {----------}
  40.                 Procedure Z%Appname%App.Do%MenuItemName%;
  41.                 var
  42.                     %menuItemName%Info:%    %%menuItemName%Rec;
  43.                 Begin
  44.                     with %menuItemName%Info do begin
  45.                         {initialize info}
  46.                         %for each item gen init field%
  47.                         if Get%MenuItemName% (%menuItemName%Info) then begin
  48.                             {use info}
  49.                         end;
  50.                     end; {with}
  51.                 End; {Do%MenuItemName%}
  52.         
  53.             %elsif modalOneShot%
  54.                 {----------}
  55.                 Procedure Z%Appname%App.Do%MenuItemName%;
  56.                 var
  57.                     %menuItemName%Info:%    %%menuItemName%Rec;
  58.                 Begin
  59.                     with %menuItemName%Info do begin
  60.                         {initialize info}
  61.                         %for each item gen init field%
  62.                         Get%MenuItemName% (%menuItemName%Info);
  63.                         {use info}
  64.                     end; {with}
  65.                 End; {Do%MenuItemName%}
  66.         
  67.             %endif%
  68.         %endif%
  69.     %endif%
  70. %case doItem.override%
  71.     %if not reserved%
  72.         %if dialogExists%
  73.             %if modal%
  74.                 {----------}
  75.                 Procedure C%Appname%App.Do%MenuItemName%;
  76.                 var
  77.                     %menuItemName%Info:%    %%menuItemName%Rec;
  78.                 Begin
  79.                     with %menuItemName%Info do begin
  80.                         {initialize info}
  81.                         %for each item gen init field%
  82.                         if Get%MenuItemName% (%menuItemName%Info) then begin
  83.                             {use info}
  84.                         end;
  85.                     end; {with}
  86.                 End; {Do%MenuItemName%}
  87.         
  88.             %elsif modalOneShot%
  89.                 {----------}
  90.                 Procedure C%Appname%App.Do%MenuItemName%;
  91.                 var
  92.                     %menuItemName%Info:%    %%menuItemName%Rec;
  93.                 Begin
  94.                     with %menuItemName%Info do begin
  95.                         {initialize info}
  96.                         %for each item gen init field%
  97.                         Get%MenuItemName% (%menuItemName%Info);
  98.                         {use info}
  99.                     end; {with}
  100.                 End; {Do%MenuItemName%}
  101.         
  102.             %endif%
  103.         %endif%
  104.     %endif%
  105. %case handleItem%
  106.     %if not reserved%
  107.         cmd%MenuItemName%:
  108.         %if dialogExists%
  109.             %if modal%
  110.                         Do%MenuItemName%;
  111.             %elsif modalOneShot%
  112.                         Do%MenuItemName%;
  113.             %else%
  114.                         its%dlogname%.itsWindow.Select;
  115.             %endif%
  116.         %else%
  117.                 ;    {handle %MenuItemName% choice;}
  118.         %endif%
  119.     %endif%
  120.